home *** CD-ROM | disk | FTP | other *** search
/ Die Ultimative Software-P…i Collection 1996 & 1997 / Die Ultimative Software-Pakete CD-ROM fur Atari Collection 1996 & 1997.iso / m / magazin / hitdisk6 / programm.e / degaslod.lst next >
Encoding:
File List  |  1996-09-18  |  1.2 KB  |  45 lines
  1. ' *******************************************************************
  2. ' *           DEGASBILDER LADEN IN GFA BASIC 2.X - 3.X              *
  3. ' *                         HITDISC 4/90                            *
  4. ' *******************************************************************
  5. '
  6. '
  7. ' Routine für Degasbilder in der niedriegen Auflösung
  8. '
  9. DIM farb(16)
  10. bild$=SPACE$(32066)
  11. '
  12. BLOAD low$,VARPTR(bild$)
  13. FOR farbe=0 TO 15
  14.   farb(farbe)=DPEEK(VARPTR(bild$)+(farbe*2+2))
  15.   SETCOLOR farbe,farb(farbe)
  16. NEXT farbe
  17. st$=MKI$(319)+MKI$(199)+MKI$(4)+MID$(bild$,34+1,32000)
  18. PUT 0,0,st$
  19. '
  20. ' Routine für Degasbilder in der mittleren Auflösung
  21. '
  22. DIM farb(5)
  23. bild$=SPACE$(32066)
  24. '
  25. BLOAD mid$,VARPTR(bild$)
  26. FOR farbe=0 TO 4
  27.   farb(farbe)=DPEEK(VARPTR(bild$)+(farbe*2+2))
  28.   SETCOLOR farbe,farb(farbe)
  29. NEXT farbe
  30. st$=MKI$(639)+MKI$(199)+MKI$(4)+MID$(bild$,34+1,32000)
  31. PUT 0,0,st$
  32. '
  33. ' Routine für Degasbilder in der hohen Auflösung
  34. '
  35. DIM farb(2)
  36. bild$=SPACE$(32066)
  37. '
  38. BLOAD hi$,VARPTR(bild$)
  39. FOR farbe=0 TO 1
  40.   farb(farbe)=DPEEK(VARPTR(bild$)+(farbe*2+2))
  41.   SETCOLOR farbe,farb(farbe)
  42. NEXT farbe
  43. st$=MKI$(639)+MKI$(399)+MKI$(4)+MID$(bild$,34+1,32000)
  44. PUT 0,0,st$
  45.